home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / koala_instant_programmers_guide[koala_technologies_1983].nbz / a text cursor (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  122 lines
  1. 90 POKE 53280,3:POKE 53281,1:PRINT"[149]"
  2. 100 PRINT"[147]"
  3. 110 PRINT:PRINTTAB(14);"TEXT CURSOR"
  4. 120 PRINT:PRINT
  5. 130 PRINT"THIS UTILITY SHOWS HOW TO MOVE A CURSOR"
  6. 140 PRINT"TO LOCATE TEXT ON THE SCREEN."
  7. 150 PRINT:PRINT:PRINT"THIS TOOL CAN BE USED TO POINT AT MENU"
  8. 160 PRINT"ITEMS, OR AT SPECIFIC WORDS WITHIN A"
  9. 170 PRINT"STRING, OR TO CREATE AND CONTROL"
  10. 180 PRINT"WINDOWS."
  11. 190 PRINT:PRINT:PRINT"IT ACTS RATHER LIKE A MOUSE, DOESN'T IT!"
  12. 200 GOSUB 10100
  13. 210 GOSUB 10400
  14. 300 PRINT"[147]"
  15. 310 PRINT"PRESS BUTTON 1 TO SELECT A WORD:"
  16. 322 PRINT"                                       "
  17. 324 PRINT"                                       "
  18. 326 PRINT"                                       "
  19. 328 PRINT"                                       "
  20. 330 PRINT"  WHOSE WOODS THESE ARE I THINK I KNOW,"
  21. 340 PRINT"  HIS HOUSE IS IN THE VILLAGE THOUGH.  "
  22. 350 PRINT"  HE WILL NOT MIND ME STOPPING HERE    "
  23. 360 PRINT"  TO WATCH HIS WOODS FILL UP WITH SNOW."
  24. 362 PRINT"                                       "
  25. 364 PRINT"                                       "
  26. 370 PRINT"  MY LITTLE HORSE MUST THINK IT QUEER  "
  27. 380 PRINT"  TO STOP WITHOUT A FARMHOUSE NEAR     "
  28. 390 PRINT"  BETWEEN THE WOODS AND FROZEN LAKE    "
  29. 400 PRINT"  THE DARKEST EVENING OF THE YEAR.     "
  30. 402 PRINT"                                       "
  31. 404 PRINT"                                       "
  32. 410 PRINT"                     BY ROBERT FROST   "
  33. 412 PRINT"                                       "
  34. 414 PRINT"                                       "
  35. 420 PRINT:PRINT"PRESS BUTTON 2 TO QUIT..."
  36. 490 MM=0
  37. 500 GOSUB 10300
  38. 510 X=INT(.16*XP)
  39. 520 Y=INT(.1*YP)
  40. 530 IF Y<3 THEN Y=3
  41. 535 IF X<1 THEN X=1
  42. 540 IF Y>21 THEN Y=21
  43. 545 IF X>39 THEN X=39
  44. 550 IF S2<>255 THEN 570
  45. 560 IF(X=PX) AND (Y=PY)  THEN 500
  46. 570 BY=1024+X+40*Y
  47. 575 IF MM=0 THEN 590
  48. 580 IF PEEK(PB)<128 THEN POKE PB,PEEK(PB)+128:GOTO590
  49. 585 POKE PB,PEEK(PB)-128
  50. 590 IF PEEK(BY)>128 THEN POKE BY,PEEK(BY)-128:GOTO 600
  51. 595 POKE BY,PEEK(BY)+128
  52. 600 IF S2<>255THEN 800
  53. 610 PX=X
  54. 615 MM=1
  55. 620 PY=Y
  56. 630 PB=BY
  57. 640 (null) TO 500
  58. 800 IF S2<250 THEN 1000
  59. 810 CH=PEEK(BY)
  60. 820 IF(CH=32) OR (CH=160) THEN 610
  61. 825 IF CH<128 THEN 610
  62. 830 SB=BY
  63. 840 IF PEEK(SB)<>32 THEN SB=SB-1:GOTO 840
  64. 850 LB=BY
  65. 860 IF PEEK(LB)<>32 THEN LB=LB+1:(null) TO 860
  66. 870 FOR I=SB+1 TO LB-1
  67. 875 IF PEEK(I)>128 THEN POKEI,PEEK(I)-128:GOTO890
  68. 880 POKE I,PEEK(I)+128
  69. 890 NEXT I
  70. 900 (null) TO 610
  71. 1000 PRINT"[147]":PRINT:PRINT:PRINT
  72. 1010 PRINT:PRINT"AS USUAL, YOU CAN LIST THIS PROGRAM TO"
  73. 1020 PRINT"SEE HOW IT WORKS. THE MAIN ROUTINE IS"
  74. 1030 PRINT"WRITTEN TOTALLY IN BASIC IN LINES 500-"
  75. 1040 PRINT"900 IN THE PROGRAM."
  76. 1050 GOSUB 10400
  77. 1070 PRINT"[147]"
  78. 1080 PRINT:PRINT:PRINT:PRINT:PRINT
  79. 1085 PRINT:PRINT:PRINT:PRINT:PRINT
  80. 1090 PRINT"     THAT'S IT FOR THE TEXT CURSOR."
  81. 1100 PRINT:PRINT"     LET'S GO BACK TO THE MAIN MENU..."
  82. 1160 LOAD"HELLO K2",8
  83. 10000 REM***********VTAB****************
  84. 10010 PRINT""
  85. 10020 VA=VT/2
  86. 10030 VD=INT(VT/2)
  87. 10040 IF VA-VD>.4 THEN PRINT
  88. 10050 FOR CR=1 TO VD
  89. 10060 PRINT""
  90. 10070 NEXT CR
  91. 10080 RETURN
  92. 10100 REM*********PADDLE SET UP*********
  93. 10110 C=12*4096
  94. 10120 FOR I=0 TO 63:READ A:POKE C+I,A:NEXT
  95. 10130 DATA 162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  96. 10140 DATA 128,141,0,220,160,128,234,136,16,252,173,25,212,157
  97. 10150 DATA 1,193,173,26,212,157,3,193,173,0,220,9,128,141,5,193
  98. 10160 DATA 169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  99. 10170 DATA 6,193,88,96
  100. 10180 RETURN
  101. 10200 REM**********DEBOUNCE*************
  102. 10210 SYSC
  103. 10220 S2=PEEK(C+262)
  104. 10230 IF S2<> 255 THEN 10250
  105. 10240 GOTO 10210
  106. 10250 BV=S2
  107. 10260 SYSC
  108. 10270 S2=PEEK(C+262)
  109. 10280 IF S2=255 THEN RETURN
  110. 10290 (null) TO 10260
  111. 10300 REM**********PADDLE READ*********
  112. 10310 SYSC
  113. 10320 XP=PEEK(C+257):YP=PEEK(C+259)
  114. 10330 S2=PEEK(C+262)
  115. 10340 RETURN
  116. 10400 REM*********PRESS EITHER BUTTON******
  117. 10410 VTAB=20:GOSUB 10000
  118. 10420 EB$="PRESS EITHER BUTTON TO CONTINUE..."
  119. 10421 PRINTEB$
  120. 10430 GOSUB 10200
  121. 10440 RETURN
  122.